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Guida per l*input dei programmi 
sullo ZX Speetrum 


Come è noto, lo Speetrum è provvisto di, 
2 serie di tasti grafici: una prima serie di 16 
caratteri grafici predefiniti (i tasti numerici 
da 1 a 8 e gli stessi 'shiftati') e una serie 
di caratteri definibili dall'utente nell'ambi¬ 
to di un programma (le lettere da A a U). 
In entrambi i casi, per ottenere i caratteri 
desiderati occorre entrare in modo grafico 
(cursore contrassegnato dalla lettera 6 
lampeggiante) premendo contemporanea¬ 
mente i tasti CAPS SHIFT e 9 
Nei nostri listati i caratteri grafici predefiniti 
sono indicati da una G e dal numero corri¬ 
spondente al tasto che occorre digitare, il 
tutto racchiuso tra due parentesi graffe 
A esempio (G4) significa che occorre digi¬ 
tare il tasto 4, con il cursore in modo grafi¬ 
co. 

Analogamente la codifica SG, seguita da 
un numero da 1 a 8, significa che occorre 
digitare il relativo tasto numerico premen¬ 
do contemporanemaente il tasto CAPS 
SHIFT. 

Ad esempio quando si trova la codifi¬ 


ca (SG2), occorre premere il tasto 2 con¬ 
temporaneamente al tasto CAPS SHIFT, ov¬ 
viamente con il cursore in modo grafico. 
In entrambi i casi precedenti, quando un 
simbolo grafico deve essere digitato più 
volte, i caratteri GoSG della codifica sono 
preceduti da un numero che specifica 
quante volte va premuto il tasto grafico in¬ 
dicato. 

Così ad esempio (8G5) significa che il ta¬ 
sto grafico 5 va digitato 8 volte, analoga¬ 
mente (4SG1} significa che il tasto grafico 
1, premuto insieme a CAPS SHIFT, deve 
essere battuto 4 volte. I caratteri grafici de¬ 
finibili (le lettere da AaU in modo grafico) 
hanno una codifica semplificata: la lettera 
corrispondente, sottolineata. 

Quando in un listato viene presentata, ad 
esempio, una A sottolineata, occorre en¬ 
trare in modo grafico (al solito premendo 
contemporaneamente i tasti CAPS-SHIFT e 
9) e quindi digitare semplicemente il tasto 
che contrassegna la lettera A. 
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Questo articolo è rivolto esclusiva¬ 
mente ai "Commodoriani" che usa¬ 
no il VIC 20, il 06 o il Plus/4. 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di STOP BUG per il tuo computer. 
Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: "-.rem"seguita da un nume¬ 
ro, detto checksum,- NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me ? per PRINT). 

Usando STOP BUG tieni conto del 


fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca i; al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE (su VIC 20) 
oppure RUN/STOP e RESET (su 
06 o PLUS/4). 

Per riattivarlo batti: 

SYS PEEK (56) *256 per il VIC 20; 
SYS 16128 per il 06 e il Plus/4. 
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STOP BUG per CI6 e PLUS/4 


100 POKE55,0 :POKE56,63 :PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = l6128T016260 :READA:CK=CK+Ar POKEI,A:NEXT 
120 IFCKOl 4248THENPRINT" {GIU * }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYSl6128:PRINT"{CLR){ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 73,34,3,201,32,208,1 ,96,141 
210 DATA33,63,173,35,3,141,34,63,1 69 
220 DATA32,141 ,34,3,169,63,1 41 ,35,3 
230 DATAI 69,0,1 33,6,96,32,2 32,235,1 33 
240 DATA3,1 34,4,1 32,5,8,201,1 3,240 
250 DATAI 7,201,32,240,5,24,1 01,6,1 33 
260 DATA6,165,3,166,4,1 64,5, 40,96 
270 DATAI 69,1 3,32,210,2 55,165,205,1 41,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,210,255,166,6,1 69,0 
310 DATAI 3 3,6,1 72,33,63,1 92,2 32,208,6 
320 DATA32,95,164,76,11 7,63,32,7,208 
3 30 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251 ,3,1 33,205,76,55,63 

STOP BUG PER VIC 90 


100 POKE55,0 :POKE56,PEEK(56)-1:R=PEEK(56)* 256 :PRINT"{CLR} 
ATTENDERE PREGO..." 

1 1 0 FORI=RTOR+132 :READA:CK=CK+A:IFA=99 9THENA=R/2 56 
120 POKEI,A:NEXT 

130 IFCK022689THENPRINT" {GIU ' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R) :PRINT"{CLR){ 2 GI U ' }{RVS}STOP BUG{OFF} ATTIVA* 
O.": NEW 

200 DATAI 7 3,36,3,201,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 

2 20 DATA32,1 41 ,36,3,1 69,999,141 ,37,3 

2 30 DATAI 69,0,1 33,254,96,32, 87,24 1 , 1 33 
24 0 DATA2S1 , 1 34,252,1 32,253,8,201 , 1 3,240 
2 50 DATAI 7,201,32, 24 0,5,24,101,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
270 DATAI 69,1 3, 32,21 0,255,165,21 4,1 41 , 251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,255,1 66,254,169,0 
310 DATAI 3 3,254,1 72,3 3,999,1 92,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251 ,3,133,214,76,55^999 


5 


Othello 


o 
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Conoscete il 3 ioco dell'Othello, 
chiamato anche Reversi? Si gioca 
in due su una scacchiera 8x8, e 
come nella Dama uno tiene i bian¬ 
chi e l'altro i neri. All'inizio vengo¬ 
no poste al centro della scacchiera 
due pedine bianche e due nere; a 
turno i giocatori pongono in una 
casella libera una pedina del pro¬ 
prio colore, con l'obbligo di "man¬ 
giare" almeno un pezzo avversa¬ 
rio: una pedina nera mangiata di¬ 
viene bianca, e viceversa. Chi non 
può mangiare salta un turno e cede 
la mossa all'avversario. Come si fa 
a mangiare? Bisogna "intrappola¬ 
re" una pedina nemica (o più pedi¬ 
ne nemiche in fila orizzontale, ver¬ 
ticale 0 diagonale) tra due delle 
proprie,- è possibile anche mangia¬ 
re in più direzioni contemporanea¬ 
mente. Il gioco termina quado la 
scacchiera è piena o quando nes¬ 
suno dei due giocatori può muo¬ 
vere: vince chi è riuscito a conqui¬ 
stare, la maggioranza delle pedine 
sulla scacchiera. 

Questo programma realizza ap¬ 
punto il gioco dell'Othello, con tre 
opzioni possibili: uomo contro uo¬ 
mo, uomo contro computer e com¬ 
puter contro computer. Durante il 
gioco sullo schermo appare la 
scacchiera, e sulla destra due ri¬ 
quadri, uno bianco e uno nero, 
contenenti il numero di pedine 
possedute al momento dai gioca¬ 
tori; colui al quale spetta la mossa 


ha il proprio riquadro indicato da 
un pallino verde. In una delle ca¬ 
selle della scacchiera appare un 
cursore triangolare, che lampeggia 
se la mossa spetta al giocatore 
"uomo". 

Vediamo come funziona le tre op¬ 
zioni. Nel primo caso due persone 
giocano tra di loro, ed il computer 
si limita a fare da "arbitro", verifi¬ 
cando la correttezza delle mosse 
ed eseguendole, concedendo ad 
ogni giocatore la facoltà di muove¬ 
re solo dopo aver verificato che 
egli abbia almeno una mossa pos¬ 
sibile. Le mosse vengono imposta¬ 
te posizionando (tramite il joy¬ 
stick) il cursore nella casella ove si 
intende porre la propria pedina, e 
premendo il pulsante. Due diversi 
segnali acustici avvisano della le¬ 
galità 0 meno della mossa. 

Nel secondo caso potete giocare 
contro il computer, con la possibi¬ 
lità di scegliere se tenere i bianchi 
o i neri oppure effettuare un sor¬ 
teggio. 

Infine nel terzo caso il computer 
gioca contro se stesso, e voi pote¬ 
te divertirvi ad osservare le sue tat¬ 
tiche. Per concludere, una nota: es¬ 
sendo il programma totalmente in 
BASIC, il computer è abbastanza 
lento nel decidere le sue mosse, 
per cui dovete avere un po' di pa¬ 
zienza. Il tempo massimo di attesa 
è comunque inferiore a 30 secon¬ 
di. 
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1 00 

DATAO,1,-1,1,-l,0,-1,-1,0,-1,1,-1,1,0,1,1: 

DATAO,7 

*1,7 


*0,-1 

: rem 

230 

no 

DATA600,50,250,300,300,250,50,600,50,0,100 

,100,100,10 


0,0,50,250,100,200,200 

: rem 

244 

1 20 

DATA200,200,100,250,300,100,200,200,200,200,100,300,3 


00,100,200,200,200,200 

: rem 

225 

1 30 

DATAI 00,300,250, 100,200,200,200,200,100,250,50,0, 

100, 


100,100,100,0,50,600,50 

: rem 

23 

1 40 

DATA250,300,300,250,50,600 

: rem 

21 8 

1 50 

DIMS% (7,7) , P%(7,7) ,M% ( 3 0,2 ) ,U(1,2) ,Zl (8) , Z 2 ( 8 ) , FR 

(1) , 


BN ( 1 ) 

: rem 

117 

1 60 

FR(O)=3787 :FR(1 )=3387:S = -102 4 

: rem 

234 

1 70 

F0RI=1T08:READZl(I),Z2(I):NEXT 

: rem 

87 

1 80 

FORI=OTOl:FORJ=0TO2:READU(I,J):NEXT:NEXT 

: rem 

100 

1 90 

FORI=0TO7:FORJ=0TO7:READP%(I,J):S%(I,J)=72 

:NEXT:NEXT 



: rem 

248 

200 

GOSUB1060 :PRINT"{CLR}":Q=3348:C=1:GOSUB790 

:Q=3748 

:C=0 


:GOSUB790 

: rem 

56 

210 

POKEFR(1) ,81 :POKEFR(1)+S,69 

: rem 

13 

220 

PRINT"{HOME}[<1>]{RVS}[<A>]{ 3 *}[<R>]{ 3 

*}[<R>] 



{ 3 *}[<R>] { 3 *)[<R>1 { 3 * 1[<R>1 { 3 *}[<R>] { 3 * 

} 


[<R>] { 3 *}[<S>] " 

: rem 

71 

230 

FORI=1T07:GOSUB820:GOSUB830:NEXT:GOSUB820 

: rem 

131 

240 

PRINT"{RVS}[<Z>]{ 3 *}[<E>]{ 3 *}[<E>]{ 3 

*}[<E>1 



{ 3 *}[<E>]{ 3 *}[<E>]{ 3 *}[<E>1{ 3 *}[<E>1{ 3 * 

} 


[<X>]{YEL}{HOME!" 

: rem 

107 

250 

BN(0)=2 :BN(1)=2:S%(3,3)=0:S%(4,4)=0:S% (3,4 

)=1:S%(4,3) 


= 1 

: rem 

224 

260 

SI=2089:I=3:J=3:GOSUB840:1=4:GOSUB840:J=4: 

GOSUB840: 1 = 


3 :GOSUB84 0 

: rem 

71 

270 

XX=0:YY=0:GOSUBl840:C=0:FF=1:CQ=0 

: rem 

239 

280 

IFBN(0)+BN(1)=640RBN(0)=0ORBN(l)=0ORCQ=2THENl010 




: rem 

242 

290 

C=C+FF:FF=-FF:GG=1:K=1 

: rem 

250 

300 

IFCM=CORCM=2THENNM=l:GOTO580 

: rem 

26 

310 

W1=C:W2=72:IFBN(0)+BN(1)>42THENWl=72:W2=C 

: rem 

96 

320 

FORI=0TO7:FORJ = 0TO7:IFS%(I,J)< >WlTHEN340 

: rem 

21 5 

330 

GOSUB900:IFFL=1THENI=7:J*7 

: rem 

92 

340 

NEXT:NEXT:IFFL=0THENCQ=CQ+1:GOTO280 

: rem 

20 

350 

FL=0:POKEFR(C + FF) ,32 :POKEFR(C),81:POKEFR(C)+S,69 




: rem 

76 

360 

GETC$:JS=JOY(1):IFC$="S"THENRUN 

: rem 

1 44 

370 

POKE2 39,0 :IFJS = 0THEN430 

: rem 

92 

380 

GOSUBl860:FORR=lTO70:NEXT:K=6:IFJS=1THENYY 

= YY-1 :IFYY< 


0THENYY=7 

: rem 

132 

390 

IFJS=5THENYY=YY+1:IFYY>7THENYY=0 

: rem 

1 64 

400 

IFJS = 7THENXX=XX-1 :IFXX<0THENXX=7 

: rem 

150 

410 

IFJS=3THENXX=XX+1:IFXX>7THENXX=0 

: rem 

147 

420 

IFJS=128THENGOSUB1840:GOTO450 

: rem 

34 

430 

K= K+l:IFK>6THENK=1:GOSUBl 840:GG = -GG 

: rem 

125 

440 

GOTO360 

: rem 

106 
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450 GG=1 :GOSUBl 840:FL=0:IFS% (XX,YY) O72THENG0SUB1 790.-GOTO 



360 

:rem 

228 

460 

GETC$:IFC$="S"THENRUN 

: rem 

9 

470 

POKE239,0:FORE=lT08:CT=1:C1=XX+Zl(E):C2=YY+Z2(E) 




: rem 

132 

480 

IFCKOORCl >7ORC2<0ORC2>7THEN540 

:rem 

106 

490 

IFS% (CI ,C2) OC+FFTHEN540 

: rem 

70 

500 

CT=CT+1:Cl=C1+Z1(E):C2=C2+Z2(E):IFC1<OORC1>7ORC2<0ORC 


2>7THEN54 0 

:rem 

189 

510 

IFS%(C1,C2)=72THEN54 0 

: rem 

113 

520 

IFS%(CI,C2)=CTHENFL=1:GOSUBl780 :GOSUB980:G0T0540 




: rem 

164 

530 

GOTO500 

:rem 

102 

540 

NEXT:IFFL=OTHENGOSUBl790:GOTO360 

: rem 

44 

550 

FL=0:CQ=0:BN(C)=BN(C)+1:GOSUB870:IFCM>-1 THENFORI = 

1 T03 


0 :M%(1,0)=0:NEXT 

: rem 

152 

560 

IFCM>-1THENFORI=1T030:M%(I,0)=0:NEXT 

:rem 

177 

570 

GOSUBl840:GOTO280 

: rem 

246 

580 

Ri=INT(RND(0)*2):R2=INT(RND(0)*2):IFRND(0)> 

.5THEN600 



:rem 

230 

590 

FORJ=U(Ri,0)TOU(Ri,1)STEPU(Ri ,2):FORI=U(R2, 

0)TOU(R2,1 


)STEPU(R2,2):G0T0610 

: rem 

162 

600 

FORI=U(Ri,0)TOU(Ri,1)STEPU(Ri,2):FORJ=U(R2, 

0)TOU(R2,1 


)STEPU(R2,2) 

: rem 

144 

610 

IFS% (I, J) O72THEN730 

:rem 

90 

620 

GOSUBl 300 :IFM%(NM,0)=0THEN730 

: rem 

1 49 

630 

IFNM=1THENPOKEFR(C+FF) ,32 :POKEFR(C) ,81 :POKEFR(C)+S,69 



: rem 

21 9 

640 

MI(NM,1)=I:M%(NM,2)=J:IFBN(0)+BN(1)>60THEN720 




:rem 

21 9 

650 

M%(NM,0)=M%(NM,0)+P%(I,J) 

: rem 

252 

660 

IFP% (I, J) >50ANDP% ( I, J) 0250THEN720 

: rem 

132 

670 

Il=0:J1=0 :IFI>4THENIl=7 

: rem 

71 

680 

IFJ>4THENJl=7 

:rem 

7 

690 

IFS%(Il,Jl)=72THENGOSUBl390:GOTO720 

: rem 

70 

700 

TA=400:1FP%(I,J)=250THENTA=1 50 

: rem 

182 

710 

M%(NM,0)=M%(NM,0)+TA:IFS%(Il,Jl)=CTHENM%(NM 

,0)=M% 

(NM, 


0)+100 

:rem 

216 

720 

NM=NM+1 

:rem 

104 

730 

NEXT:NEXT:NM=NM-1:IFNM=0THENCQ=CQ+1:GOTO280 

:rem 

43 

740 

GOSUBl 860 :MM=M%(1,0) :XX=M%(1,1) :YY = M%(1,2) : 

IFNM=1THEN 


780 

:rem 

222 

750 

FORI=2TONM:IFM%(I,0)<=MMTHEN770 

:rem 

138 

760 

MM=M%(1,0):XX=M%(1,1):YY=M%(1,2) 

: rem 

255 

770 

NEXT 

: rem 

221 

780 

GOSUBl840:FORR=lTOl000:NEXT:GOT0450 

:rem 

182 


790 POKEQ,85 :POKEQ+1,67 :POKEQ+2, 67 :POKEQ+3,73 :POKEQ+4 0,66 
:POKEQ+43,66 :rem 139 

800 POKEQ+80,74 :POKEQ+81 ,67 :POKEQ+82,67 :POKEQ+83,75 

:rem 249 


8 


810 FORI=Q+STOQ+S+80STEP40:FORJ = IT0I + 3:POKEJ,C* 113:NEXT:N 



EXT:RETURN 

: rem 

162 

820 

FORJ=lTO2:PRINT"{RVS}-{ 3 SPAZl}-{ 3 

SPAZI}- 



{ 3 SPAZI } - { 3 SPAZI } -*- { 3 SPAZl}-{ 3 

SPAZI}^ 



{ 3 SPAZ !}-*-{ 3 SPAZ I } - " : NEXT : RETURN 

: rem 

227 

830 

PRINT"{RVST[<Q>]{ 3 *T+{ 3 *}+{ 3 *}+{ 3 *} + { 3 * 

} + 


{ 3 *}+{ 3 *}+{ 3 *}T<W>] RETURN 

:rem 

243 

840 

A=S%Jl,J):IFA=1THENA=A*113 

: rem 

199 

850 

P=S1+ 1 * 4+J*120 : FORII = PTOP+4 0STEP4 0 :FORJJ=IITOI1 + 2 




:rem 

42 

860 

POKEJJ,A:NEXT:NEXT 

: rem 

192 

870 

Tl$=STR$(BN(1)):T0$=STR$(BN(0)) 

: rem 

163 

880 

PRINT"{HOME}{ 7 GIU'}"TAB(37)RIGHT?(Tl$ » 2) :PRINT" 



{ 9 GIU' }"TAB(37)RIGHT$(T0$,2) 

: rem 

1 82 

890 

RETURN 

:rem 

129 

900 

FORE=lTO8:C1=I+Zl(E):C2=J+Z2(E) 

: rem 

17 

91 0 

IFCl< 0ORC1>7ORC2<0ORC2>7THEN970 

:rem 

111 

920 

IFS% (CI ,C2) OC+FFTHEN970 

:rem 

75 

930 

CI =C1+Z1 (E) :C2=C2+Z2 (E) : IFCK0ORC1 >7ORC2<0ORC2>7THEN9 


70 

: rem 

202 

940 

IFS%(CI,C2)=WlTHEN970 

:rem 

158 

950 

IFS%(CI,C2)=W2THENFL=1:E=8:GOTO970 

:rem 

7 

960 

GOTO930 

: rem 

11 6 

970 

NEXT: RETURN 

:rem 

249 

980 

I=XX:J=YY:FORZX=1TOCT:S%(I,J)=C:GOSUB840 : 1 = I + Zl (E):J = 


J+Z2(E) 

: rem 

10 

990 

IFZX<CTTHENBN(C)=BN(C)+1:BN(C+FF)=BN(C+FF)-1: rem 

81 

1 000 

NEXT:RETURN 

: rem 

26 

1 01 0 

POKEFR(C),32:GOSUBl800:C=1:PRINT"{HOME}{ 12 GIU' 
{RVS}{CYN}"TAB(9)"{ 3 SPAZI}PREMI <C>{ 3 SPAZI}" 

} 



: rem 

1 50 

1020 

IFBN(0)>BN(1)THENC=0 

: rem 

146 

1 030 

IFBN(0)=BN ( 1 ) THENC=0:FR(0)=3587 

:rem 

249 

1 040 

POKEFR(C),81 : FORI=0TOl5:FORT=lTOl00: 

NEXT : GETC$ : IFC$ = 


"C'THENRUN 

: rem 

1 90 

1 050 

POKEFR(C)+S,64+1:NEXT:GOTOl040 

: rem 

90 

1060 

GOSUBl 570 : PRINT"{CLR} { YEL}{OFF }{ 3 GIU'jHAI 3 POSSIB 


ILITA ' DI GIOCO:{GIU 1 }" 

:rem 

205 

1070 

PRINT" { RVS}1{OFF} - UOMO CONTRO UOMO 

": PRINT"{RVS}2 


{OFF} - UOMO CONTRO COMPUTER" 

: rem 

130 

1080 

PRINT"{RVS}3{OFF} - COMPUTER CONTRO 

COMPUTER":PRINT" 


{GIU ' }QUALE SCEGLI?" 

: rem 

21 9 

1090 

GETH$ : IFH$ <" 1"ORH$>"3"THENl090 

:rem 

183 

1100 

ONVAL(H$)GOTOl110,1130,1120 

:rem 

220 

1110 

CM=-1 :GOTOl290 

: rem 

45 

1 1 20 

CM=2:GOTOl290 

: rem 

2 

1 1 30 

PRINT"{ 2 GIU*}{CYN}VUOI I BIANCHI, 

I NERI O IL ; 

SORT 


EGGIO" 

: rem 

11 

1 1 40 

PRINT" { GIU '}( {RVS } B{OFF } -{RVS } N{OFF } 

- { RVS } S{OFF })?" 



: rem 

97 


:rem 247 


1150 GETKEYCS 


9 


11 60 

IFC$="B"THENCM=0:GOTOl290 

: rem 

236 

1 1 70 

IFC$="N"THENCM=1:GOTOl290 

: rem 

250 

1 1 80 

IFC$ <>"S"THENi 150 

: rem 

1 99 

1 1 90 

PRINT"{GIU'}[<6>]ORA AVVERRÀ' IL SORTEGGIO: 

ii 




: rem 

232 

1 200 

PRINT"SE PREMENDO UN TASTO QUALSIASI IL" 

: rem 

245 

1 21 0 

PRINT"QUADRATINO QUI SOTTO DIVERRÀ' BIANCO, 





: rem 

33 

1 220 

PRINT"TU AVRAI I BIANCHI E IL COMPUTER I" 

: rem 

123 

1 230 

PRINT"NERI; SE INVECE IL QUADRATINO DIVERRÀ 

i » 




:rem 

19 

1 240 

PRINT"NERO SARA' IL CONTRARIO." 

: rem 

1 42 

1 250 

POKE4011,160:C=0:FF=1 

: rem 

1 58 

1260 

GETC$:IFC$<>""THENl280 

: rem 

248 

1 270 

POKE2987,C*113:C=C+FF:FF=-FF:GOTOl260 

: rem 

173 

1 280 

CM=C:FORR=lTO5000 :NEXT 

: rem 

157 

1 290 

RETURN 

: rem 

172 

1300 

FORE=lT08:CT=0:C1=I+Z1 (E):C2=J+Z2(E) 

: rem 

122 

1 310 

IFCl< 0ORC1>7ORC2<0ORC2>7THENl 380 

: rem 

198 

1 320 

IFS% (CI ,C2) OC+FFTHENl 380 

: rem 

1 62 

1 330 

CT=CT+1:C1=C1+Z1(E):C2=C2+Z2(E) 

: rem 

231 

1 340 

IFCl< 0ORC1>70RC2< OORC2>7THENl380 

: rem 

201 

1 350 

IFS%(CI,C2)=72THEN1380 

: rem 

21 5 

1 360 

IFS%(CI,C2)=CTHENM%(NM,0)=M%(NM,0)+CT:GOTOl 380 




: rem 

152 

1 370 

GOTOl330 

: rem 

203 

1 380 

NEXT:RETURN 

: rem 

37 

1 390 

LL=0:1A=I :JA=J:DE=75:IFP%(I,J)<250THENl42 0 

: rem 

235 

1 400 

IA=Il+SGN(3-11):JA=Jl+SGN(3-Jl):DE=275 

: rem 

158 

1410 

IF(S%(IA,JA)<>C+FF)OR(S%(I+2*(IA-I),J+2*(JA-J))<>C)T 


HENRETURN 

:rem 

28 

1 420 

SX=IA-I1:SY=JA-Jl:Cl=IA+SX:C2=JA+SY 

: rem 

207 

1 430 

IFS%(CI,C2)=72THENl480 

: rem 

21 5 

1 440 

IFS%(CI,C2)=C+FFTHENFG=1 

: rem 

151 

1450 

CI=C1+SX4 C2=C2+SY:IFCl< OORC1>7ORC2<0ORC2>7THENl480 



: rem 

57 

1 460 

IFS%(CI,C2)=CTHENFG=0 

: rem 

225 

1470 

GOTOl430 

: rem 

205 

1480 

IFFG=1THENFG=0:M%(NM,0)=M%(NM,0)-DE : RETURN 

: rem 

59 

1 490 

IFP%(I,J)< > 50THENRETURN 

: rem 

208 

1 500 

IA=Il+SGN(3-11):JA=Jl+SGN(3-Jl) 

: rem 

1 

1510 

SX= IA-I :SY=JA-J :C1=IA+SX:C2*=JA+SY 

: rem 

109 

1 520 

IFS% (CI ,C2) OC+FFTHENRETURN 

:rem 

184 

1 530 

CI=C1+SX:C2=C2+SY:IFCl< 0ORC1>70RC2<OORC2>7THENRETURN 



:rem 

75 

1 540 

IFS%(CI,C2)=72THENRETURN 

: rem 

236 

1 550 

IFS%(CI,C2)=CANDLL=0THENLL=1:GOTO!420 

: rem 

255 

1 560 

GOTOl530 

:rem 

206 

1 570 

COLORO,1 :COLOR4,1 :VOL8 

: rem 

134 

1 580 

PRINT"{CLR}{ 2 GIU'}{BLU}{RVS}£{ 7 SPAZI}{ 

5 DES} 


£{ 2 SPAZI}{ 11 DES}£{ 2 SPAZlT£{ 2 SPAZI}":rem 249 
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1590 PRINT"{YEL}{RVS}[< 7 +>]{BLU} { 5 DES}{YEL}[< 2 +>] 
{BLU} { 11 DES}{YEL}[< 2 +>]{BLU} {YEL}[< 2 +>]{BLU} 

:rem 228 

1600 PRINT"{YEL}{RVS}{< 7 +>]{BLU} £{ 2 SPAZI}{ 2 DES} 

{YEL}[< 2 +>]{BLU} { 11 DES}{YEL}[< 2 +>]{BLU} {YEL} 
[< 2 +>]{BLU} " : rem 46 

1610 PRINT"{YEL}{RVS}[< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>] 
{BLU} {YEL}[< 2 +>]{BLU} { 2 DES}{YEL}{< 2 +>]{BLU} 

{ 11 DES}{YEL}[< 2 +>]{BLU} {YEL}(< 2 +>]{BLU} " 

:rem 148 

1620 PRINT"{YEL}{RVS}[< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>} 
{BLU} {YEL}[< 2 +>]{BLU}{ 3 SPAZI}{YEL}(< 2 +>]{BLU} 
{ 5 SPAZI}£{ 6 SPAZI}{YEL}[< 2 +>]{BLU} {YEL} 

[< 2 +>}{BLU} £{ 6 SPAZI}"; :rem 169 

1630 PRINT"{YEL}[< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>]{BLU) 

{YEL}{< 4 +> J {BLU} {YEL}[< 6 +>]{BLU} {YEL}{< 6 +>] 
{BLU} {YEL}[< 2 +>]{BLU} {YEL}{< 2 +>]{BLU} {YEL} 

(< 6 +>]{BLU} : rem 108 

1640 PRINT"{YEL}[< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>]{BLU} 
{YEL}[< 4 +>]{BLU}{OFF}£{RVS}{YEL}[< 6 +>){BLU} 

{YEL}[< 6 +>]{BLU} {YELT[< 2 +>]{BLU} {YEL}[< 2 +>] 
{BLU} {YEL}{< 6 +>]{BLU} "; :rem 186 

1650 PRINT"{YEL}{< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>]{BLU} 

{YEL}[< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>]{BLU} {DES} 

{YEL}[< 2 +>]{BLU} {YEL}[< 2 +>]{BLU}{ 2 SPAZI}{YEL} 
[< 2 +>J {BLU} {YEL}[< 2 +>] {BLU} {YEL}[< 2 +>] {BLU} 
{YEL}(< 2 +>]{BLU} {DES}{YEL}[< 2 +>]{BLU} 

:rem 233 

1660 PRINT"{YEL}[< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>]{BLU} 
{YEL}[< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>]{BLU} {DES} 
{YEL}{< 2 +>]{BLU} {YEL}[< 6 +>]{BLU} {YEL}{< 2 +>] 
{BLU} {YEL}[< 2 +>]{BLU} {YEL}[< 2 +>]{BLU} {DES} 

{YEL}{< 2 +>]{BLU} :rem 121 

1670 PRINT"{YEL}[< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>]{BLU} 
{YEL}[< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>]{BLU} {DES} 

{YEL}{< 2 +>]{BLU} {YEL}[< 6 +>]{BLU}{OFF}£{RVS} 

{YEL}{< 2 +>]{BLU} {YEL}[< 2 +>]{BLU} {YELT[< 2 +>] 
{BLU} {DES}{YEL}[< 2 +>]{BLU} "; :rem 199 

1680 PRINT"{YEL}[< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>]{BLU} 
{YEL}{< 2 +>]{BLU} { 2 DES}{YEL}[< 2 +>]{BLU} {DES} 
{YEL}{< 2 +>]{BLU} {YEL}[< 2 +>]{BLU} { 4 DES}{YEL} 

[< 2 +>]{BLU} {YEL}{< 2 +>]{BLU} {YEL}[< 2 +>}{BLU} 
{DES} {YEL} [< 2 +>] {BLU} :rem 87 

1690 PRINT"{YEL}{< 2 +>}{BLU}{ 3 SPAZI}{YEL}[< 2 +>]{BLU} 
{YEL}[< 2 +>]{BLU}{ 3 SPAZI}{YEL}[< 2 +>]{BLU} 

{DES}{YEL}{< 2 +>]{BLU} {YEL}[< 2 +>]{BLU} 

{ 5 SPAZI}{YEL}[< 2 +>]{BLU} {YEL}[< 2 +>]{BLU} 

{YEL}{< 2 +>]{BLU}{ 2 SPAZI}{YEL}[< 2 +>]{BLU} 

:rem 83 

1700 PRINT"{YEL}[< 7 +>]{BLU} {YEL}{< 4 +>]{BLU} {YEL} 

[< 2 +>]{BLU} {DES}{YEL}[< 2 +>]{BLU} {YEL}{< 6 +>] 
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{BLU} {YEL}[< 2 +>]{BLU} {YEL}[< 2 +>]{BLU} {YEL} 

[< 6 +>]{BLU} :rem 243 

1710 PRINT"{YEL}[< 7 +>]{BLU}{OFF}£{RVS}{YEL}[< 4 +>] 

{BLU}{OFF}£{RVS}{YEL}[< 2 +>]TBLU}{OFF}£{RVS}{DES} 

{YEL}{< 2 +>]{BLU}{OFF}£{RVS}{YEL}[< 6 +>]{BLU}{OFF} 
£{RVS}{YEL}[< 2 +>}{BLUT{OFF}£{RVS}{YEL}[< 2 +>] 
IBLU}{OFF}£{RVS}{YEL}[< 6 +>]TBLU}{OFF}£" : rem 15 

1720 PRINTTAB(7)"{ 3 GIU'}{CYN}{RVS}{ 3 SPAZI}JOYSTICK IN 
PORTA 1{ 3 SPAZI}" : rem 156 

1730 PRINTTAB(7)"{RVS} PER INIZIARE! 2 SPAZlJPREMI <A> " 

:rem 135 

1740 PRINTTAB(7)"{RVS} PER SMETTEREI 2 SPAZI}PREMI <S> 



POKE239,0 

: rem 

11 

1 750 

GETC$:IFC$0"A"ANDC$0"S"THEN1 750 

: rem 

138 

1 760 

IFC$="S"THENSCNCLR:END 

; rem 

157 

1 770 

COLORO,7,0:COLOR4,7,0:RETURN 

:rem 

3 

1 780 

SOUND1,800,10:RETURN 

:rem 

245 

1790 

SOUND1,300,40:RETURN 

: rem 

244 

1 800 

READFR,DR:IFFR>0THENSOUNDl,FR,DR:FORD= 

1TODR*16 :NEXT: 


GOTOl800 

: rem 

207 

1 810 

RETURN 

:rem 

170 

1 820 

DATA643,!0,664,10,685,10,810,20,685,10 

,810,20,685,10 


,810,60,810,10,834,10 :rem 35 

1830 DATA844,!0,854,10,810,10,834,10,854,20,810,10,834,20 
,810,60,0,0 :rem 44 

1840 IFGG<0THENl860 :rem 84 

1850 P=S1+XX* 4+YY*120:POKEP+1,37:POKEP+40,37:POKEP+42,37 : 

RETURN :rem 53 

1 860 P=S1+XX*4+YY*120:1I = PEEK(P):POKEP+l,II:POKEP+40,II:P 
OKEP +42,11:RETURN : rem 125 



gj II saltatore folle 


II nostro amico Bob ha intrapreso 
uno sport diverso da quelli usuali: 
saltare con il tappeto elastico. Noi 
con il nostro joystick dobbiamo di¬ 
rezionare questo tappeto e fare in 
modo che Bob non si faccia male. 
Ogni volta che Bob atterra sul tap¬ 


peto elastico guadagna dei punti: 
3 nel caso arrivi nel dentro, 7 se 
atterra sul lato,- infine perde 1 pun¬ 
to se tocca il muro. 

Aiutare il caro amico Bob non è 
compito facile, ma non a tutti piac- 
cino i soliti sport!! 
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1000 REM IL SALTATORE FOLLE :rem 91 

1090 PRINT"{CLR}":POKE36879,8 :rem 12 

1100 PRINT"{WHT}{ 2 SPAZI}{ 3 GIU'}ATTENDERE PREGO..." 

:rem 110 

1180 REM-RIDEFINISCE I CARATTERI- :rem 201 

1190 POKE52,28:POKE56,28:CLR:FORI = 7168T07679:POKEI,PEEK(I 
+25600):NEXT :rem 183 

1 200 F0RC = 7432TO7519:READA:POKEC, A:NEXT : rem 156 

1210 REM-LEGGE IL JOYSTICK- :rem 31 

1220 A=0:FORJ = 828T0 912:REAOX:POKEJ, X :A=A+X:NEXT:READX 

:rem 132 

1 225 IFAOXTHENPRINT" ERRORE NEI DATA" : END :rem 66 

1230 SYS828 :rem 103 

1240 PRINT"{GIU'}{RVS} UN TASTO PER GIOCARE {OFF}" 

:rem 92 

1250 GETA$:IFA$=""THENl250 :rem 179 

1260 PRINT"{CLR}":POKE36869,255 :rem 110 

1270 REM-VARIABLI- :rem 6 

1280 A=PEEK(36866)ANDl28:SC=4*A+64*(PEEK(36869)ANDl12):C= 
30720 :rem 153 

1 290 SI = 368 76 :S2=Sl+1:V=S2+1:M=SC+472:BO=SC+66+INT(RND(1) 
* 18+3):SK=.8 :rem 181 

1300 DIR=22:DER=+1 :rem 242 

1310 REM-SETTA LO SCHERMO- :rem 228 

1 320 FORA=SC+484TOSC+505:POKEA+C,5:POKEA,37 :NEXT:rem 188 

1 330 FORA=SC + 45TOSC + 64:POKEA+C,4:POKEA,43:NEXT :rem 82 

1 340 FORA=SC + 44TOSC + 462STEP 22 :POKEA+C,4 :POKEA+C+ 21 ,4:POKE 
A,3 8 : PO KEA+ 21,38:NEXT :rem 253 

1 350 REM :rem 173 

1360 POKEV,10:POKES1,0 :rem 37 

1 370 IFPEEK(843)=0THENM=M-1 :POKEM+2,32 :IFM<SC + 464THENM=M+ 
1 :rem 247 

1 380 IFPEEK(844)=0THENM=M+1:POKEM-2,32:IFM>SC+481THENM=M- 
1 :rem 252 

1 390 POKEM+C, 7 :POKEM+C + 1»7:POKEM+C-1,7 :rem 226 

1400 POKEM,34:POKEM-1,33:POKEM+l,35 :rem 32 

1410 OP=INT(BO):BO=BO+DIR :rem 18 

1420 IFDER=+1THENZ=RND(1):IFZ<SKTHENBO=BO+Z :rem 6 

1430 IFDER=-1THENZ=RND(1):IFZ<SKTHENBO=BO-Z :rem 11 

1 4 40 IFPEEK(INT(BO))= 38THENBO=OP:DER*-DER:SE=SE-1:GOSUBl6 
20-.GOSUB1640 :rem 70 

1450 IFPEEK(INT(BO))=43THENBO=OP:DIR=-DIR:GOSUBl620 

:rem 193 

1460 IFPEEK(INT(BO))=34THENDIR=-DIR:GOSUBl620:SE=SE+3 

:rem 32 

1 470 IFPEEK(INT(BO))=33THENDIR=-DIR:DER=+1:GOSUBl620:SE=S 
E+l • :rera 204 

1480 IFPEEK(INT(BO))=35THENDIR=-DIR:DER=-1:GOSUBl620:SE=S 
E+l • :rem 209 

1490 IFPEEK(INT(BO))=37THEN1560 :rera 66 
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1500 

CH=INT(RND(1)*4+40):IFCH=43THENCH=36 

:rem 

117 

1510 

POKEOP, 32 :POKEINT(BO) ,CH 

:rem 

19 

1520 

IFSE<0THENSE=0 

:rem 

1 43 

1 530 

PRINT"{HOME}{YEL}{DESjPUNTI:{WHT}"SE:PRINT' 

"{HOME} 



{ 12 DES}{YEL}REC.:"HI 

:rem 

1 86 

1540 

IFSE>HITHENHI=SE 

:rem 

85 

1550 

GOTO1350 

:rem 

205 

1560 

REM-ROUTINE DI CONTROLLO- 

: retti 

45 

1570 

POKEV,15:FORVO=15TOOSTEP-2 :POKEV,VO:POKES2 

,160+VO:PO 


KE3686 5,INT(RND(1)* 3+37):NEXT 

:rem 

122 

1580 

POKE36 865,38:POKES2,0:SE= 0 

: rem 

41 

1 590 

PRINT"{HOME}{GIU’}{ 2 DES}$ PREMI UN TASTO 

$" 

:rem 

241 

1600 

GETA$:IFA$=""THENl600 

:rem 

1 77 

1610 

PRINT"{CLR}":GOTOl290 

: rem 

107 

1620 

REM-SUONO- 

:rem 

79 

1630 

F0RF*224TO25 4STEP2 : POKEV ,10:POKESl-2,F: NEXT: POKES1 - 2 


,0:POKEV,0:RETURN 

: rem 

216 

1640 

IFHI=SE+1THENHI=HI-1 

:rem 

8 

1650 

RETURN 

:rem 

172 

1660 

REM-DATA DEI CARATTERI- 

:rem 

74 

1670 

DATA25 5,1 44,160,1 92,192,128,1 28,1 28,255 

:rem 

1 85 

1680 

DATAI 5 3,90,60,60,24,24,24,255,9,5,3,3,1 ,1 , 

1 :rem 

84 

1690 

DATA24,24,0,126,153,24,36,36 

:rem 

132 

1700 

DATAI 7 0,85,255,2 55,2 55,255,255,2 55 

:rem 

1 95 

1710 

DATA255,255,255,255,255,255,255,255 

:rem 

247 

1720 

DATA0,0,0,0,36,60, 1 89,255 

:rem 

229 

1730 

DATA36,36,24,1 53,1 26,0,24,24,8,16,19,220 

: rem 

204 

1740 

DATA220,!9,16,8,16,8,200,59,59,200,8,16 

:rem 

165 

1750 

DATA25 5,255,2 55,25 5,255,2 55,255,1 26 

: rem 

248 

1760 

REM-DATA M/C- 

:rem 

1 53 

1770 

DATAI 2 0,1 69,78,1 41 ,20,3,1 69,3,1 41 ,21 , 3,88 

: rem 

9 

1780 

DATA96,0,0,0,0,0,1 69,0,141,19,145,169,127, 

141 

:rem 

1 91 

1790 

DATA34,1 45,1 73,1 7,145,41 ,4, 1 41 ,73,3,1 73 

:rem 

168 

1800 

DATAI 7,145,41 ,8,141 ,74,3,1 73,17,1 45,41,16, 

141 

:rem 

1 97 

1810 

DATA75,3,173,32,145,41 ,1 28,141 ,76,3,1 73 

:rem 

166 

1820 

DATAI 7,145,41,32,1 41 ,77,3,1 69,255,1 41,34,145 

:rem 

159 

1830 

DATAI 6 9,1 28,1 41 ,19,145,76,1 91,234,0,0,0,0, 

7167 

:rem 

1 
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Life 


i 


Il Gioco della vita, ideato dal mate¬ 
matico americano John Horton 
Con v/a y, consiste nel simulare 
l'evoluzione di una popolazione 
di cellule, che obbedisce a deter¬ 
minate lessi di sviluppo. 

La popolazione in esame si evolve 
su un terreno diviso in quadratini, 
ciascuno dei quali può contenere 
o meno una cellula; l'evoluzione è 
determinata dalla massiore o mi¬ 
nore densità di popolazione, se¬ 
condo le seguenti "lessi di transi¬ 
zione": 

1) una nuova cellula nasce se gli 
otto quadratini adiacenti conten¬ 
gono esattamente tre cellule,- 

2) una cellula muore se gli otto 
quadratini adiacenti contengono 
meno di due o più di tre cellule,- 

3) negli altri casi la cellula soprav¬ 
vive,- 

Ovviamente sarebbe possibile defi¬ 
nire leggi diverse,- queste sono quel¬ 
le originali del gioco, e si basano sul 
principio che la sovrappopolazione 
determina scarisità di cibo, e quindi 
la morte per fame, mentre l'isola¬ 
mento porta ad una mancanza di 
supporti per la sopravvivenza e per 
la riproduzione. 

Le leggi scelte da Conway stabili¬ 
scono un certo equilibrio tra que¬ 
ste due situazioni, per cui il gioco 


Listato 1 

100 POKE36879,110:1=6656 
110 READA :IFA=2 56THEN1 40 


ha uno svolgimento molto impre¬ 
vedibile, e può dare luogo ad una 
evoluzione infinita, ad una confi¬ 
gurazione stabile o anche alla 
estinzione dell'intera popolazio¬ 
ne. 

La versione che vi presentiamo gira 
sul VIC 20 inespanso, e l'evoluzio¬ 
ne della popolazione viene calco¬ 
lata da una routine in linguaggio 
macchina, grazie alla quale il tem¬ 
po impiegato dal computer per 
elaborare una generazione è di soli 
4/60 di secondo. L'evoluzione si 
svolge su una griglia quadrata 
composta da un massimo di 256 
(16x16) caselle, e la configurazio¬ 
ne iniziale può essere generata ca¬ 
sualmente oppure impostata dal¬ 
l'utente. In quest'ultimo caso oc¬ 
corre fare molta attenzione perché 
non è possibile correggere errori: 
conviene concludere in un modo 
qualsiasi l'impostazione e, dopo la 
prima generazione, fermare l'evo¬ 
luzione premendo il tasto f2. 

Il gioco è diviso in due parti; la 
seconda deve venir salvata, chia¬ 
mandola "LIFE2 ", subito dopo la 
prima. Chi usa il disk drive elimini 
la parola REM nella riga 160 del 
programma 1. Sia da nastro che da 
disco il caricamento del program¬ 
ma 2 avviene automaticamente. 


:rem 38 
:rem 151 
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120 PRINT"{CLR}MEMORIZZAZIONE{ 8 SPAZ1}LINGUAGGIO MACCHIN 
A":POKE646,A :rem 202 

130 POKEI,A:1=1+1 :CH=CH+A:GOTOl'l 0 :rem 220 

140 IFCH0451 75THENPRINT" {GIU ' } { WHT }ERRORE NELLE ISTRUZIO 
NI DATA":END : rem 207 

150 PRINT"{CLR}{ 3 GIU'}{WHT}LO"CHR$(34)"LIFE2"CHR$(34); 

:rem 144 


160 REM PRINT",8" :rem 176 

170 PRINT"{HOME}":POKE631,13:POKE632,82 :POKE63 3,1 17:POKE6 


34,13:P0KE198,4:NEW 

: rem 

152 

6656 

DATAI 66,250,202,1 34,24 9,1 34,24 8,1 62 

:rem 

243 

6664 

DATA0,138,160,1,24,113,252,164 

: rem 

231 

6672 

DATA250,32,94,27,32,34,27,169 

: rem 

202 

6680 

DATA0,32,84,27,32,1 02,27,32 

:rem 

82 

6688 

DATA72,27,32,34,27,197,249,208 

: rem 

11 

6696 

DATA238,169,0,136,24,113,252,32 

:rem 

41 

6704 

DATAI 02,27,32,94,27,32,34,27 

: rem 

139 

6712 

DATA32,112,27,165,249,24,101,250 

: rem 

74 

6720 

DATAI 33,249,1 98,24 8,208,3,56,1 76 

: rem 

105 

6728 

DATA78,169,0,32,94,27,32,102 

:rem 

151 

6736 

DATA27,24,113,252,32,102,27,136 

: rem 

28 

6744 

DATA32,94,27,32,34,27,169,0 

. :rem 

99 

6752 

DATA32,84,27,32,112,27,32,72 

:rem 

140 

6760 

DATA27,32,102,27,32,102,27,136 

: rem 

230 

6768 

DATAI 36,32,72,27,32,34,27,197 

: rem 

208 

6776 

DATA24 9,208,227,169,0,1 36,24,1 1 3 

:rem 

97 

6784 

DATA252,32,112,27,32,94,27,32 

:rem 

194 

6792 

DATAI 02,27,32,1 02,27,136,32,94 

:rem 

239 

6800 

DATA27,32,34,27,56,176,161,169 

: rem 

251 

6808 

DATA0,32,94,27,32,102,27,24 

: rem 

86 

681 6 

DATAI 1 3,252,32,34,27,234,234,1 69 

:rem 

88 

6824 

DATA0,32,84,27,32,112,27,32 

:rem 

83 

6832 

DATA72,27,32,34,27,197,249,208 

: rem 

2 

6840 

DATA238,169,0,136,24,113,252,32 

: rem 

32 

6848 

DATAI 1 2, 27,32,94,27,32,34,27 

:rem 

149 

6856 

DATAI 69,0,1 33,248,1 33,249,1 68, 1 77 

: rem 

160 

6864 

DATA254,145,252,240,5,230,248,56 

: rem 

93 

6872 

DATAI 76,2,230,24 9,1 69,0,14 5,254 

:rem 

46 

6880 

DATA200,208,236,96,166,250,202,134 

:rem 

186 

6888 

DATA 249,134,248,162,0,138,168, 1 89 

: rem 

167 

6896 

DATAO,28,240,4,169,209,208,2 

:rem 

150 

6904 

DATAI 69, 160,1 45,254,1 38,197,24 9,240 

: rem 

255 

691 2 

DATA4,232,200,208,234,198,248,16 

: rem 

87 

6920 

DATAI,96,165,254,24,105,22,133 

:rem 

237 

6928 

DATA254,144,2,230,255,160,0,232 

:rem 

28 

6936 

DATAI 65,2 49,24,101,250,1 33,24 9,56 

:rem 

145 

6944 

DATAI 76,205,1 33,251 , 138,1 68,169,2 

:rem 

150 

6952 

DATAI 97,2 51 ,240,1 8, 169,3,197,2 51 

: rem 

104 

6960 

DATA240,17,169,0,145,254,169,0 

:rem 

246 

6968 

DATAI 33, 251,200,1 52,170,96,177,252 

: rem 

1 95 

6976 

DATA56,176,241,169,1,56.176.236 

: rem 

63 


16 


:rem 117 


6984 DATA24,113,252,200,24,113,252,200 
6992 DATA24,113,252,96,200,24,113,252 
7000 DATAI 36,1 36,24,1 1 3,252,96,24, 1 13 
7008 DATA252,200,24,113,252,96,133,251 
7016 DATAI 52,24,101,2 50,168,1 65,251,96 
702 4 DATAI 33,251 ,1 52,56,229,250,168,165 
7032 DATA251,96,0,256 

Listato 2 

5 POKE36879,1 10 :PRINT"{WHT}":POKE650,128 :POKE55,0 :POKE56, 
2 6:CLR:IFPEEK(6656)=166THEN9 : rem 24 

8 print"{gilt Linguaggio macchinai 3 spazi}non presente": 

END : rem 150 

9 MA=71 68:MB=7424:O=0:Y=l : AR=.5:N=16:G$="{ 22 GIU , } ,, 

: rem 221 

10 REM-RIPRESA DEL GIOCO- : rem 99 

20 GOSUB9Q0:PRINT"{ 2 GIU'}DIMENSIONE {GRN}N{WHT} DEL LAT 

0{ 2 SPAZI}DEL QUADRATO ="N :rem 202 

25 PRINT"{GIU 1 }{ 2 SPAZI}(AL MASSIM0{ 2 SPAZI}= 16)" 

:rem 228 

30 PRINT" { 2 GIU'H 4 SPAZI}PER{ 3 SPAZI} CAMBIARE 

{ 6 SPAZI}-LA{ 2 SPAZI} DIMENS IONE { 2 SPAZ I } - {GRN } N {WHT} 
-{ 6 SPAZI}PREMERE [{YEL}F7{WHT}] ," : rem 200 

40 PRINT"( 2 GIU’} ALTRIMENTI{ 3 SPAZI}PREMERE{ 3 SPAZI} 


UN TASTO QUALUNQUE." 


: rem 

1 25 

50 FORD=1TO20 00:NEXT:POKEl98,0 


:rem 

67 

60 WAIT2 03,64,255:GETA$ :IFA$OCHR$ (1 36) THENl 00 

: rem 

97 

90 INPUT"{ 2 GIU'}NUOVO N";N:IFN>16THENN= 

16 

:rem 

170 

99 REM-INIZIO— 


: rem 

189 

100 GOSUB900:NM=N-1 •• 


: rem 

104 

110 PRINT"COLTURA CASUALE?(S/N)" 


: rem 

21 9 

120 GETA$:IFA$=”"THENl20 


: rem 

73 

130 IFA$ ="N"THENl000 


: rem 

71 

140 IFA$<>"S"THENl20 


: rem 

92 

150 PRINT"SI" 


: rem 

3 

199 REM -GENERAZIONE CASUALE- - 


: rem 

126 

200 B-O:E*O:T=0 


: rem 

133 

210 FORJ=OTONM 


: rem 

142 

220 FORI=OTONM 


: rem 

142 

230 V= INT(RND (Y)+AR):IFV=YTHENB=B+Y 


: rem 

21 7 

240 POKEMA+1+J*N,V 


:rem 

54 

250 NEXTI:NEXTJ 


:rem 

226 

299 REM-DISPLAY COLTURA- 


: rem 

122 

300 GOSUB90O . 


: rem 

172 

310 PRINT"COLTURA DI"B"CELLULE{ 2 SPAZI}" 

: GOTO500 

: rem 

160 

399 REM-DISPLAY GENER. 


: rem 

107 

400 PRINT" {HOME} { 4 SPAZI}**** LIFE ****" 


: rem 

232 

410 PRINT"{GIU'}VIVE"E"(SIN}( 5 SPAZI}{ 4 

SIN} " 

;TAB(11) M 

0RTE"T"{SIN}{ 5 SPAZI}" 


: rem 

16 


17 











499 REM-DISEGNO : rem 206 

500 E=0:T=0 : rem 128 

510 POKE2 50,N:POKE2 54,88+(22-N)/2:POKE255,30:SYS6884 

:rem 217 
[ {YEL}F2 


540 PRINT"{HOME}{WHT}";LEFTS(G$,N+5):PRINT"PREMI 



{WHT}] PER RICOM.{ 2 SU}" 


: rem 

174 

550 

PRINT"PREMI [{YEL}FI{WHT}] PER CONT." 


:rem 

3 

560 

GETAS: IFA$=CHR$(13 7)THENi 0 


: rem 

200 

565 

IFA$<>CHR$(133)THEN560 


: rem 

193 

570 

PRINT"{SU}{ 20 SPAZI}" 


: rem 

254 

698 

REM-ANALISI 


: rem 

199 

700 

POKE254,0:P0KE255,29 


: rem 

120 

710 

P0KE252,0:P0KE253,28 


:rem 

116 

720 

POKE250,N:SYS6656 


:rem 

233 

730 

T=PEEK(249) 


: rem 

64 

740 

E=PEEK(248):IFE>=3THEN400 


: rem 

176 

799 

REM-FINE 


: rem 

113 

800 

GOSUB900:PRINT"{ 2 GIU'}LE CELLULE SI 

O 

z 

o 

w 

7 SPAZI} 


AUTODISTRUTTE" 


: rem 

81 

810 

PRINT"{ 6 GIU'}ALTRA SIMULAZIONE?" 


: rem 

21 1 

820 

GETB$:IFB$=""THEN820 


: rem 

89 

830 

IFB$ = "S"THENPRINT"{CLR}": GOTO!0 


: rem 

203 

840 

IFB$O"N"THEN820 


: rem 

102 

850 

PRINT"{CLR}":POKE650,0:END 


: rem 

114 

900 

PRINT"{CLR}{ 4 SPAZI}**** LIFE ****{GIU'}": 

RETURN 





:rem 

152 

999 

REM -IMPOSTAZIONE MANUALE- 


: rem 

246 

1 000 

GOSUB900 . 


: rem 

21 8 

1 020 

PRINT"INSERIRE LE CELLULE + E GLI SPAZI 

: rem 

1 40 

1030 

PRINTLEFT$("{ 14 SPAZI}1{ 3 SPAZI}!", 

-3+N): 

PRINTLEFTS 


("{ 3 SPAZI}1{ 2 SPAZI}4{ 3 SPAZI}8{ 

3 SPAZI}2 



{ 3 SPAZI}6",3+N) 


: rem 

247 

1100 

FORJ = OTONM:PRINTRIGHT$(STR$(J+l ) ,2)" 

« • 

9 

:rem 

1 04 

ino 

FORI=OTONM 


: rem 

189 

11 20 

PRINTTAB(1+3)"{RVS} " 


: rem 

11 8 

11 30 

GETC$:IFCS = ""THENl130 


: rem 

177 

1 1 40 

IFC$="+"THENPOKE(MA+I+J*N),Y:PRINTTAB(1+3) 

"{SU}+" 

1 : B = 


B+Y: GOTO!170 


: rem 

220 

1 1 50 

IFC$="-"THENPOKE(MA+I+J*N),0:PRINTTAB(1+3) 

"{SU}-" 

: GO 


TOl170- 


: rem 

88 

1 1 60 

GOTOl130 


:rem 

1 98 

1 1 70 

PRINT"{ 2 SU}":NEXTI 


: rem 

126 

1180 

PRINT:NEXTJ 


:rem 

26 

1 200 

GOTO300 


:rem 

1 43 
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Ti Monitor 


» 

% 

Exi Basic + 32K [Zj 


Il programma TI MONITOR è indi¬ 
rizzato a tutti gli amanti della pro¬ 
grammazione in linguaggio mac¬ 
china che non essendo in possesso 
del modulo Miny Memory o Editor 
Assebler devono arrangiarsi con 
l'Extended Basic, ostacolati da mil¬ 
le limitazioni. Ad esempio: non si 
può né leggere né scrivere in modo 
diretto nella RAM VDP, né modifi¬ 
care i suoi registri; prima di esegui¬ 
re un programma in LM esso va no¬ 
minato nella REF/DEF table: fin 
quando se ne deve nominare uno, 
la cosa è solo noiosa, ma quando 
se ne devono nominare due o tre 
diventa drammatica; chi vuole 
adattare un programma in assem¬ 
bler dalla Miny Memory o Editor 
Ass per l'Extended Basic prima lo 
deve tradurre da esadecimale a 
decimale a tavolino e poi deve in¬ 
serirlo in memoria tramite CALL 
LO AD con enorme spreco di me¬ 
moria. Ebbene, il TI MONITOR cer¬ 
ca di ovviare a questi inconvenien¬ 
ti. Il programma prevede ben 7 2 
opzioni: 

0) Scrive nella RAM VDP 

1) Scrive nei registri VDP 

2) Scrive nella CPU RAM 

3) Legge la VDP RAM 

4) Legge la CPU RAM 

5) Nomina un programma 

6) Esegue un programma 

7) Per le conversioni 

8) Esce dal TI MONITOR 

9) Torna al quadro principale 


10) Registra un programma 

11) Carica un programma 

Dato il RUN comparirà il quadro 
principale, con le opzioni sopra- 
descritte. Premere un tasto qualsia¬ 
si; il computer chiederà il numero 
della vostra scelta. Alcune avver¬ 
tenze importanti: 

1) Nelle opzioni 0, 1, 3 il valore 
dell'indirizzo di partenza (START 
ADDRESS) così come il valore del¬ 
l'indirizzo di fine (END ADDRESS) 
deve essere compreso fra 0 e 
16000. 

2) Nelle opzioni 2, 4,5, 10 il valo¬ 
re dell'indirizzo di partenza così 
come quello di fine deve essere 
compreso fra 12400 e 16000. 

3) Nelle opzioni 0, 2 il computer 
chiede: INPUT MODE (H.Bh ri¬ 
spondete H se volete inserire i vo¬ 
stri dati in esadecimale, B se li vole¬ 
te inserire in binario. 

4) Nelle opzioni 3, 4 i dati vengo¬ 
no visualizzati in esadecimale. 

5) I registri VDP sono numerati da 
0 a 7. Non è possibile scrivere per 
singolo registro un valore maggio¬ 
re di 255. Alcuni valori, se inseriti, 
possono bloccare il sistema. 

6) Per inserire un programma ese¬ 
guibile, bisogna selezionare l'op¬ 
zione 2. 

7) Non è possibile nominstr più 
di 3 programmi. 

8) Esistono 6 tipi di conversioni; 
in ordine sono: esadecimale- 
decimale, decimale-esadecimale, 
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esadecimale- binario, binario- 
esadecimale, decimate-binario, bi- 
naro-decimale. Alla domanda 
CHOICE? rispondere battendo il 
numero della propria scelta ed in¬ 
serire i valori. Per finire 7. 

1 REM IDEATO E SCRITTO 

2 REM PER PAPERSOFT DA : 

3 REM PEROTTI NORBERTO 

4 REM VIA F.LLI BANDIERA 90 

5 REM SESTO S.G. (MI) 

6 REM TEL. 02/2423045 
100 GO TO 1170 

110 DATA 0,0,1,1,2,2,3,3,4,4,5, 

B, 1 2,C , 1 3,D , 1 4, E, 1 5, F 
120 DATA 0,0,1,1,2,2,3,3,4,4,5, 

1 ,C,12,D,13,E,14,F,15 
130 DATA 128,64,32,16 
140 DATA 8,4,2,1,0 
150 DATA 1,2,4,8,16 
160 DATA 32,64,128 
170 CALL INIT :: CALL LOAD(16336,86,83,66,87,32,32,48,0,8 
6,87,84,82,32,32,48,14) 

180 CALL LOAD(16352,86,83,66,82,32,32,48,24,0,0,0,0,0,0,0 

, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0) 

190 CALL LOAD(16379,0,0,0,0,0,"",8194,48,37,63,208,"",122 
88,2,0,0,0,2,1,0,0,4,32) 

200 CALL LOAD(12298,32,32,4,91,2,0,0,0,4,32,32,48,4,91,2, 
0,0,0,4,32,32,40,200,1,48) 

210 CALL LOAD(12323,38,4,91) 

220 RETURN 
230 CALL CLEAR 

240 DISPLAY AT(3,10):"TI MONITOR" :: DISPLAY AT(4,6):"DEV 
ELOPED BY PAVAR" :: DISPLAY AT(5,9):"IN MCMLXXXV" 

250 DISPLAY AT(7,11):"COMMANDS" :: DISPLAY AT(9,3):"0 WR 
ITE INTO VDP MEMORY" 

260 DISPLAY AT(10,3):"1 WRITE INTO VDP REGTRS" :: 

270 DISPLAY AT(11,3) :"222WRITE CPU MEMORY" :: DISPLAY AT( 

12.3) :"3 READ VDP MEMORY" 

280 DISPLAY AT(13,3):"4 READ CPU MEMORY" :: DISPLAY AT(1 

4.3) :"5 ENTER A PROGRAM" 

290 DISPLAY AT(15,3):"6 EXECUTE PROGRAM" :: DISPLAY AT(1 

6.3) :"7 FOR CONVERSIONS" 

300 DISPLAY AT(17,3):"8 ESCAPE MONITOR" :: DISPLAY AT(18 
,3):"9 SHOW THIS SCREEN" 

310 DISPLAY AT(19,3):"102SAVE PROGRAM" :: DISPLAY AT(20,3 
):"11 LOAD PROGRAM" 

320 DISPLAY AT(22,4):"PRESS ANY KEY TO BEGIN" 
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5,6,6,7,7,8,8,9,9,10,A,11, 
5,6,6,7,7,8,8,9,9,A,10,B,1 


9) La procedura di caricamento di 
un programma non prevede la sua 
nominazione,- prima di eseguirlo, 
esso va nominato. Il programma 
viene memorizzato nelle locazioni 
orginarie. 



330 CALL HCHAR(1 , 1,96,32) : : CALL HCHAR(24,1,96,32) 
VCHAR(2,1,96,22) : : CALL VCHAR(2,32,96,22): : 

340 CALL KEY(0,K,S) 

350 IF S=0 THEN 340 

360 CALL CLEAR 

370 RETURN 

380 RESTORE 110 

390 R$ = "" :: Y=0 

400 IF X<16 THEN 440 

410 X=X-16 

420 Y=Y+l 

430 GO TO 400 

440 FOR A=0 TO 15 

450 READ B,A$ 

460 IF BOY THEN 490 
4 70 R$ =R$&A$ 

480 GO TO 500 
490 NEXT A 
500 RESTORE 110 
510 FOR C=0 TO 15 
520 READ D,B$ 

530 IF DOX THEN 560 
540 R$ = R$&B$ 

550 RETURN 
560 NEXT C 
570 E=1 :: R=0 
580 FOR F=1 TO 2 
590 RESTORE 120 
600 C$=SEG$(X$,F,1) 

610 FOR G=0 TO 15 

620 READ D$,H 

630 IF D$=C$ THEN 650 

640 NEXT G 

650 IF F=2 THEN 690 

660 R=R+H*16~E 

670 E=E-1 

680 NEXT F 

690 R=R+H 

700 RETURN 

710 RESTORE 130 

720 R$ = "" 

730 READ I 

740 IF 1=0 THEN RETURN 
750 IF X<I THEN 770 
760 IF X>=I THEN 790 
770 R$ =R$6r"0" 

780 GO TO 730 
790 R$ =R$& " 1 " 

800 X=X-I 
810 GO TO 730 
820 RESTORE 150 
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830 R=0 

840 FOR L=8 TO 1 STEP -1 
850 E$=SEG$(X$,L,1) 

860 READ M 

870 IF E$="0" THEN 890 

880 R=R+M 

890 NEXT L 

900 RETURN 

910 MSB = 0 : : LSB = 0 

920 YY=XX/256 

930 MSB=INT(YY) 

940 IF MSB=0 THEN 970 
950 LSB=(YY-MSB)*256 
960 GO TO 980 
970 LSB = YY*2 56 
980 RETURN 

990 IF FL=1 THEN 1030 

1000 PRINT "INPUT MODE [H.B] ?" :: ACCEPT AT(23,20)SIZE(1 
)VALIDATE("HB"): HB$ :: 

1010 IF HB$="H" THEN HB=2 
1020 IF HB$="B" THEN HB=8 
1030 PRINT "START ADDRESS:" 

1040 ACCEPT AT(23,17)SIZE{5)VALIDATE(DIGIT):ST :: 

1050 IF ST<MN THEN 1130 
1060 IF ST>MX THEN 1130 
1070 PRINT "END ADDRESS:" 

1 080 ACCEPT AT(23,15)SIZE(5)VALIDATE(DIGIT) : ED :: 

1090 IF ED<MN THEN 1130 
1100 IF ED>MX THEN 1130 
1110 IF ST>ED THEN 1130 
1120 RETURN 

1130 PRINT "* ERROR *" 

1140 PRINT "* REINSERT *" 

1150 CALL SOUND(300,110,1) 

1160 FL=1 :: GO TO 990 
1170 CALL CLEAR 
1180 CALL SCREEN(2) 

1190 CALL COLOR(1,2,2,9,3,3) 

1200 FOR 0=2 TO 8 
1210 CALL COLOR(O,16,2) 

1220 NEXT O 

1230 GOSUB 170 :: GOSUB 240 
1 24 0 INPUT "CMD ?" :Q 
1250 IF Q< 0 THEN 1240 
1260 IF Q>11 THEN 1240 

1270 ON Q+l GO SUB 1290,1460,1530,1660,1780,1860,2160,225 

0,2850,230,2760,2810 

1280 GO TO 1240 

1 290 MN=0 : : MX=1 6000 

1300 FL=0 :: GOSUB 990 

1310 FOR P=ST TO ED 
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1320 PRINT P;" = > " 

1 330 IF HB$ = "B" THEN 1360 

1340 ACCEPT AT(23,15)SIZE(2)VALIDATE(DIGIT,"ABCDEF"):X$ 

1350 GO TO 1370 

1 360 ACCEPT AT( 2 3,1 5) SIZE ( 8)VALIDATE(”01"): XS :: 

1370 IF LEN(X$)<HB THEN 1330 
1380 IF HB=2 THEN GOSUB 570 
1390 IF HB=8 THEN GOSUB 820 
1 400 XX = P : : GOSUB 91 0 
1410 CALL LOAD(12290,MSB) 

1420 CALL LOAD(12291,LSB) 

1430 CALL LOAD(12294,R) 

1440 CALL LINK("VSBW") 

1450 NEXT P :: RETURN 

1 460 PRINT "REGISTER :: ACCEPT AT(23,12)SIZE(1)VALIDAT 

E ("01 234567") :U : : 

1470 PRINT "VALUE 

1 480 ACCEPT AT(23,9)SIZE(3)VALIDATE(DIGIT): X :: 

1490 IF X>255 THEN 1480 
1500 CALL LOAD(12304,U,X) 

1510 CALL LINK (" VWTR" ) 

1520 RETURN 

1530 MN=12400 :: MX=16000 
1 540 FL=0 : : GOSUB 990 
1 550 FOR Al=ST TO ED 
1 560 PRINT Al ;" > = " 

1570 IF HB$="B" THEN 1600 

1580 ACCEPT AT(23,15)SIZE(2)VALIDATE(DIGIT,"ABCDEF"):X$ 

1 590 GO TO 1 61 0 

1600 ACCEPT AT(23,15)SIZE(8)VALIDATE("01"):X$ :: 

1610 IF LEN (X$ ) <HB THEN 1570 
1620 IF HB=2 THEN GOSUB 570 
1630 IF HB=8 THEN GOSUB 820 
1640 CALL LOAD(Al,R) 

1650 NEXT Al :: RETURN 
1 660 MN = 0 : : MX=1 6000 
1670 FL=1 :: GOSUB 990 
1 680 FOR A2=ST TO ED 
1690 PRINT A2;" > = " 

1700 XX=A2 :: GOSUB 910 
1710 CALL LOAD (1 231 4,MSB) 

1 720 CALL LOAD (1 231 5,LSB) 

1730 CALL LINK("VSBR") 

1740 CALL PEEK(12326,X) 

1750 X=X-96 :: GOSUB 380 
1760 DISPLAY AT(23,15):R$ 

1 770 NEXT A2 : : RETURN 
1780 MN=12400 :: MX=16000 
1790 FL=1 :: GOSUB 990 
1800 FOR A3=ST TO ED 
1-810 PRINT A3;" > = " 
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1 820 
1 830 
1 840 
1,850 
1 860 
l' 8 7 0 
1 880 
1-890 
1,900 
1 ' 91 0 
1920 
1 ;9 3 0 
1:940 
1j950 
11960 
1;970 
1Ì980 

1 >990 
2|000 
21010 
2020 
203 0 
2040 
2050 
2060 
2070 

2Ò80 

2090 
2 ? 00 
21 1 0 
2120 
21 30 
21 40 
21 50 

2Ì 60 

21 70 
21 80 
21 90 
2200 
221 0 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 

2 32 0 


CALL PEEK(A3,X) 

GOSUB 380 

DISPLAY AT(23,15):R$ 
NEXT A3 : : RETURN 
CALL PEEK(1 6360,Vi ) 

CALL PEEK(16368,V2) 

CALL PEEK (1 6376,V3) 

IF V1=0 THEN 1950 
IF V2=0 THEN 1960 
IF V3=0 THEN 1970 
PRINT "* MEMORY FULL *" 
CALL SOUND(300,110,1) 
RETURN 

IN=1 6360 : : GO TO 1980 
IN=1 6368 : : GO TO 1980 
IN=16376 :: GO TO 1980 
INPUT "NAME :":NM$ 

IF LEN(NM$)<6 THEN 2020 
IF LEN(NM$)>6 THEN 2020 
GO TO 2050 

PRINT "* ONLY 6 CHAR *« 
CALL SOUND(300,110,1) 

GO TO 1980 

J=J+1 :: J$ (J) =NM$ 

FOR A3=l TO 6 
A4 =ASC(SEG$(NM$,A3,1)) 
CALL LOAD(IN+A3-1,A4) 
NEXT A3 


MN=12400 :: MX=16000 
FL=1 :: GOSUB 990 
XX=ST :: GOSUB 910 
CALL LOAD(IN+6,MSB) 
CALL LOAD(IN+7,LSB) 

GO TO 1940 
INPUT "NAME :":NA$ 

FOR A5=l TO 3 
IF NA$=J$(A5)THEN 2230 
NEXT A5 

PRINT "* NOT FOUND *" 
CALL SOUND(300,110,1) 
GO TO 2240 
CALL LINK(J$(A5)) 
RETURN 

HEX.DEC" 
DEC.HEX" 
HEX.BIN" 
BIN.HEX" 
DEC.BIN" 
BIN.DEC" 
EXIT" 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 


" 1 ) 

’ 2 ) 


"3) 

"4) 

"5) 

” 6 ) 

"7) 


"CHOICE ? ":CH 
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2330 IF CH<1 THEN 2320 
2340 IF CH>7 THEN 2320 
2350 IF CH= 7 THEN RETURN 

2360 ON CH GO SUB 2380,2440,2500,2570,2640,2700 :: 

2370 GO TO 2320 
'2380 PRINT "HEX =" 

2390 ACCEPT AT ( 23,7 ) SIZE ( 2) VALIDATE (DIGIT, " ABCDEF" ) : X$ 

2400 IF LEN(X$)< 2 THEN 2390 

2410 GOSUB 570 

2420 PRINT "DEC = ";R 

2430 RETURN 

2440 PRINT "DEC -" 

2450 ACCEPT AT(23,7)SIZE(3)VALIDATE(DIGIT):X :: 

2460 IF X>255 THEN 2450 

2470 GOSUB 380 

2480 PRINT "HEX = ";R$ 

2490 RETURN 

2500 PRINT "HEX =" 

25l0 ACCEPT AT(23,7)SIZE(2)VALIDATE(DIGIT,"ABCDEF"):X$ 

2520 IF LEN(X$)< 2 THEN 2510 

2530 GOSUB 570 :: X=R 

2540 GOSUB 710 

2550 PRINT "BIN = ";R$ 

2560 RETURN 
2570 PRINT "BIN =" 

2580 ACCEPT AT(23,7)SIZE(8)VALIDATE("01"):X$ :: 

2590 IF LEN(X$)<8 THEN 2580 
2600 GOSUB 820 :: X=R 
2610 GOSUB 380 
26^0 PRINT "HEX = ";R$ 

2630 RETURN 
2640 PRINT "DEC = " 

2630 ACCEPT AT(23,7)SIZE(3)VALIDATE(DIGIT): X :: 

2660 IF X>255 THEN 2650 

2670 GOSUB 710 

26$0 PRINT "BIN = ";R$ 

2690 RETURN 

27q0 PRINT "BIN = " 

2710 ACCEPT AT(23,7)SIZE(8)VALIDATE("01"):X$ :: 

2720 IF LEN(X$)<8 THEN 2710 
2730 GOSUB 820 
2740 PRINT "DEC =";R 
2750 RETURN 

2760 MN=12400 :: MX=16000 :: FL=1 :: GOSUB 990 :: OPEN #1 
:"CSI ",INTERNAL,OUTPUT,FIXED 192 :: PRINT #1 :ST;ED 
277,0 FOR A6 = ST TO ED STEP 10 

278Ì0 CALL PEEK(A6,Bl ,B2,B3,B4,B5,B6,B7,B8,B9,B1 0) 

2790 PRINT #1:B1;B2;B3;B4;B5;B6;B7;B8;B9;Bl0 :: NEXT A6 
2800 CLOSE #1 :: RETURN 

2810 OPEN #1:"CSl",INTERNAL,INPUT ,FIXED 192 :: INPUT #1: 
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ST,'ED :: FOR A7=ST TO ED STEP 10 :: INPUT # 1 : Bl , B2 , B3 , B4 , 
B5,B6,B7,B8,B9,B10 

2820 CALL LOAD(A7,Bl,B2,B3,B4,B5,B6,B7,B8,B9,Bl0) 

2830 NEXT A7 :: CLOSE #1 
2840 RETURN 
2850 END 




Motorshow 


48K 


Nell'àmbito del Motorshow, una 
delle più importanti manifestazioni 
motociclistiche dell'anno, siete sta¬ 
ti invitati a partecipare con la vo¬ 
stra moto agli esercizi di salto acro¬ 
batico. Eccovi dunque pronti a 


spiccare il volo da una rampa, sor¬ 
volare macchine, autobus e barili 
ordinatamente accatastati, e atter¬ 
rare su una piattaforma. Unica dif¬ 
ficoltà: azzeccare la giusta velocità 
per prendere lo slancio. 


1 LET SCORE=0: BORDER 6: PAPER 6: INK 1: CLS 

2 PRINT #0;AT l,3;"Prego, attendi un attimo..." 

5 GO SUB 1000: GO SUB 100: GO SUB 2000: GO SUB 150: LET GS=INT ( 
RND*4)+1 : GO SUB 250+50*GS 
8 DIM L$(9*32) 

10 LET SP=(69-45)/100-0: LET SD=45-0*SP: DEF FN E()-SD+S*SP 
13 INPUT "VELOCITA* (1-100)? ";S 

15 IF S<1 OR S>100 THEN GO TO 13 

16 LET S=FN E() 

18 LET N-INT (S/10) 

20 LET FLAGRO 

25 LET SI=0: LET S2=0: LET Ll-0: LET L2-0 
28 LET U-S*SIN 45: LET S-S*COS 45 

30 LET H-6: LET Xl «0 

31 FOR J-0 TO 6: LET X-J 

34 IF JO0 THEN PRINT OVER 1; PAPER 6; INK 2;AT 19,X1;BS(3); 

AT 1 9,X1+1 ;BS (4 ) ; AT 20,XI ; BS(1) ;AT 20, XI+1 ; BS ( 2) : PAUSE 13-J*2: 
FOR L-l TO N: OUT 254,22: OUT 254,6: NEXT L 

35 IF J<>6 THEN PRINT OVER 1; PAPER 6; INK 2;AT 19,X;B$(3);AT 1 
9,X+1;BS(4);AT 20,X;BS(1);AT 20,X+1;BS(2): PAUSE 11-J*2: FOR L-l 

TO N: OUT 254,22: OUT 254,6: NEXT L 
40 LET XI-X: NEXT J 

50 LET FLAG-FLAG+1 : FOR K=1 TO N: OUT 254,22: OUT 254,6: NEXT K 

60 LET X-(S*FLAG)/18: LET Y-((U*FLAG)+(-10*(FLAGt2))/2)/9.5 

61 IF (19-INT (Y/2))>«19 AND FLAG>3 THEN GO TO 500 

65 IF 19-INT (Y/2)>21-Hi AND ATTR (19-INT (Y/2) ,X+H+2) 049 THEN 
GO TO 510 

70 FOR K-l TO N: OUT 254,22: OUT 254,6: NEXT K 

71 LET Y=Y/2.5: IF FLAG=1 THEN LET Yl-Y: LET Xl=X: GO TO 73: FOR K 
=1 TO N: OUT 254,22: OUT 254,6: NEXT K 

PRINT PAPER 6; INK 2; OVER 1 ;AT 19-Y,X+H;BS(3) ;AT 19-Y,(X+H)+1 ; 
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B$(4);AT (19-Y1+1,X+H;BS(1);AT (19-Y)+1,(X+H)+1 ;BS(2): IF J-2 
THEN PAUSE 25 

73 PRINT PAPER 6; INK 2; OVER 1 ;AT 1 9-Yl , Xl+H ; BS ( 3) ; AT 19-Yl,(Xl+H- 
) +1 ; BS (4) ; AT ( 1 9-Yl ) +1 , Xl +H ; BS ( 1 ) ; AT <1 9-Yl )+1 , (Xl+H)+1 ; B$ (2) : 

LET Yl-Y: LET X1=X 

75 FOR K-l TO N: OUT 254,22: OUT 254,6: NEXT K: GO TO 50 
80 STOP 

100 DIM B$(4): DIM C$(2): DIM DS(2): DIM E$(4): DIM F$(l> 

110 FOR J=1 TO 4: LET BS(J)■(CHR$ (143+J)): NEXT J 

115 LET CS(1)-CHRS 148: LET C5(2)-CHRS 149: LET DS(1)-CHRS 150: 

LET D$(2)“CHRS 151 

120 LET ES(1)-CHRS 152: LET CS (2)-CHRS 153: LET ES(3)'CHR$ 154: 

LET ESC4)-CHRS 155: LET FS-CHRS 156 
125 LET MS-0: LET MS»" MOTORSHOW ": RETURN 


1 50 
200 

FOR 

LET 

J-0 TO 31 

I-INT ((RND*6)+.5) : 

PRINT 

PAPER 

6; 

INK 

I ; AT 

7,J;CHR$ 

163: 

204 

IF 

LET 

1-6 THEN GO TO 200 
I-INT (<RND*6)+.5): 

PRINT 

PAPER 

6; 

INK 

I ; at 

8,J;CHRS 

163: 

206 

IF 

LET 

1-6 THEN GO TO 204 
I-INT ((RND*6)+.5): 

PRINT 

PAPER 

6; 

INK 

I ;at 

9,JjCHRS 

163: 


IF 1-6 THEN GO TO 206 

209 NEXT J 

210 FOR J=1 TO 30 STEP 2: LET MS-MS+1: PLOT (J*8)-1,((21-7)*8)+8: 


DRAW 0,32 

215 LET I-INT <(RND*7)+1): PRINT PAPER 9; INK I;AT 3,J;MS(MS): IF I 
=6 THEN GO TO 215 

216 NEXT J: PLOT 0,95: DRAW 255,0: PLOT 0,75: DRAW 255,0 

220 PRINT PAPER 6; INK 3;AT 1,11;"PUNTI ";AT 1,18;SCORE;" ": 
RETURN 

300 LET Hl-INT ((RND*7)+1): LET P-INT ((RND*12)+5): FOR K-l TO Hi: 

FOR J=1 TO P-K*2: PRINT PAPER 6; INK 5;AT 21-K,(J+l0)+K;CHRS 1 
56: NEXT J: NEXT K 

310 FOR J-0 TO 8: PLOT 48,8: DRAW PAPER 6; INK 9;16,J: NEXT J: 

FOR J-0 TO 8: PLOT (P+l1)* 8,16-J: DRAW PAPER 6; INK 9;255-((P+ 
11)* 8),-8+J: NEXT J: RETURN 

350 LET Hl-INT ((RND*7)+1): LET P-INT ((RND*12)+5): FOR K-l TO Hi: 

FOR J = 1 TO P-K*2 STEP 2: PRINT PAPER 6; INK 4;AT 21 -K, (J+l 0)+K 
;CHR$ 150;AT 21-K,(J+ll)+K;CHRS 151: NEXT J: NEXT K 

351 FOR J-0 TO 8: PLOT 48,8: DRAW PAPER 6; INK 9;16,J: NEXT J: 

FOR J-0 TO 8: PLOT (P+l1)*8,16-J: DRAW PAPER 6; INK 9;255-((P+ 
11)*8),-8+J: NEXT J: RETURN 

400 LET Hl-INT ((RND*7)+1): LET P-INT ((RND»12)+5): FOR K-l TO Hi: 

FOR J-l TO P-K*2 STEP 2: PRINT PAPER 6; INK 3;AT 21-K,(J+l0)+K 
;CHRS 148;AT 21-K,(J+ll)+K;CHRS 149: NEXT J: NEXT K 
410 FOR J-0 TO 8: PLOT 48,8: DRAW PAPER 6; INK 9;16,J: NEXT J: 

FOR J-0 TO 8: PLOT (P+l1)*8,16-J: DRAW PAPER 6; INK 9; 255-<(P+ 
11)*8),-8+J: NEXT j: RETURN 

450 LET Hl-INT ((RND*8)+2): LET P-INT ((RND*12)+5): FOR K-l TO Hi 

STEP 2: FOR J=1 TO P-K*2 STEP 2: PRINT PAPER 6; INK 2;AT 21-K, 
(J+l0)+K;CHRS 154;AT 21-K,(J+l1)+K;CHRS 155 

451 PRINT PAPER 6; INK 2;AT 21 -K+l,(J+l0)+K;CHRS 152;AT 21-K+1,(J+1 

I) +K;CHRS 153: NEXT J: NEXT K 

455 FOR J-0 TO 8: PLOT 48,8: DRAW PAPER 6; INK 9;16,J: NEXT J: 

FOR J-0 TO 8: PLOT (P+l1)*8,16-J: DRAW PAPER 6; INK 9;255-((P+ 

II) *8),-8+J: NEXT J: RETURN 

500 IF ABS (INT X+H-(P+l1+Hl))<3 THEN PRINT #0;AT 1,0;"O.K. CE L' 
HAI FATTA!”: LET SCORE-SCORE+10: PRINT PAPER 6; INK 3;AT 1,11;" 
PUNTI ";AT 1,18;SCORE*(SCORE>0);" GO TO 504 

503 GO TO 510 

504 PRINT PAPER 6; INK 1; OVER 1;AT 19-Yl,Xl+H;BS(3);AT 19-Yl,(Xl+H 
) +1 ; BS ( 4 ) ; AT ( 1 9-Yl )+1 ,Xl+H ; BS ( 1 ) ; AT ( 1 9-Yl )+1 , (Xl+H )+1 ; BS ( 2 ) 
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505 PRINT PAPER 6; INK 1;AT 1 8,Xl+H;BS(3);AT 1 8, (XI+H)+1 ; BS ( 4 ) ; AT 1 
9,X1+H;B$(1) ;AT 19,(Xl+H)+1 ;BS ( 2): GO TO 1500 
510 PRINT PAPER 6; INK 1;AT 19-Y1,X1+H;" n ;AT 19-Yl,(XI+H)+1 ;” « ; 

AT (19-Yl )+l ,X1+H; n " ; AT (19-Y1J+1,(Xl+Hl+l;" •• 

550 LET K-X+H-2: LET Kl=19-(Y*SGN Y=l): POR J-l TO 2: BEEP .07,10*J: 
PRINT PAPER 6; INK 2; OVER 1 ;AT Kl,K+2;CHRS 157;AT Kl-1,K+1; 
CHRS 158;AT Kl-1,K;CHR$ 159;AT Kl-2,K;CHR$ 160;AT Kl-2,K+1; 

CHRS 161 ;AT Kl-2,K+2;CHR$ 162;AT Kl-1,K+2;CHRS 157: IP J-l 
THEN PAUSE 20 
552 NEXT J 

555 POR J-l TO 2: BEEP .07,10"J: PRINT PAPER 6; INK 2; OVER 1 ;AT Kl 
,K+3;CHR$ 157;AT Kl-1,K+2;CHRS 158;AT Kl-2,K;CHR$ 159;AT K1-3.K; 
CHRS 160;AT Kl-3,K+3;CHRS 161;AT Kl-4,K+3;CHRS 162;AT Kl-l,K+3; 
CHRS 157: IP J-l THEN PAUSE 20 
557 NEXT J 

560 PRINT #0;AT 1,0;"CHE BRUTTO SALTO!!": PAUSE 50 

570 LET SCORE-SCORE-IO: PRINT PAPER 6; INK 3;AT 1,11;"PUNTI ”;AT 1, 
18;SCORE*(SCORE>0)": IP SCORECO THEN LET SCORE-O 


575 

1000 

1010 

1011 

1012 

1013 

1014 

1015 

1016 
1017 
101 8 
101 9 
1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 
1029 
1100 
1110 
1120 
1130 
1140 
1150 
1500 


GO TO 1500 
REM dati per udg 
DATA 15,61,67,147,143,145,66,60 
DATA 64,188,162,217,241,73,34,28 
DATA 6,12,15,230,22,15,31,31 
DATA 0,128,0,16,240,240,11,12 
DATA 15,16,63,32,32,63,16,15 
DATA 240,8,252,4,4,252,8,240 
DATA 15,16,16,31,51,63,16,16 
DATA 240,8,8,248,204,252,8,8 
DATA 32,32,63,39,39,63,24,24 
DATA 4,4,252,228,228,252,24,24 
DATA 15,31,32,32,63,56,63,63 
DATA 240,248,4,4,252,28,252,252 
DATA 24,60,66,126,66,126,195,255 
DATA 60,66,129,153,153,129,66,60 
DATA 0,0,240,248,24,4,2,2 
DATA 66,66,66,36,24,24,24,36 
DATA 17,34,68,8,3,68,137,3 
DATA 128,79,32,16,72,64,76,2 
DATA 3,31,60,100,199,224,16,48 
DATA 255,24,60,90,126,36,24,126 
POR J-l TO 20 
POR N=0 TO 7 

READ A: POKE USR (CHRS (143+J))+N,A 
NEXT N 
NEXT J 
RETURN 

PAUSE 50: POR J-1 TO 2: PRINT PAPER 6; 


INK 1 ;AT 13,0;L$: 


NEXT J 


1504 LET MS-0: FOR J-l TO 30 STEP 2: LET MS-MS+1 

1505 LET I-INT ((RND*7)+1): PRINT PAPER 9; INK I;AT 3,J;MS(MS): IF I 
-6 THEN GO TO 1505 

1506 NEXT J 

1510 LET GS-INT (RND*4)+1 : GO SUB 250+50*GS: GO TO 13 
2000 REM istruzioni 

2050 FOR J-0 TO 30: BEEP .005,10: PRINT PAPER 6; INK 2; OVER 1;AT 1, 
J;BS(3);AT 1,J+l;BS(4);AT 2,J;BS(1);AT 2,J+1;B${2) 

2055 IP J>0 THEN PRINT PAPER 6; INK 2; OVER 1;AT 1,J-1 ;BS(3);AT 1,J 
;BS(4);AT 2,J-1;B$(1);AT 2,J;BS(2) 

2056 IF J>8 AND J<23 THEN PRINT PAPER 6; INK (RND* 5) +. 5; AT 2,J-'l;MS 

(J-7) , 

2060 NEXT J 
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2065 PRINT PAPER 6; INK 6; OVER 1 ; AT 1 , J-1 ; BS ( 3 ); AT 7,J;BS(4);AT 2,J 
-1 ;B$ (1 ) ;AT 2,J;B$(2): PAUSE 5 

2070 PRINT PAPER 6; INK 6;AT 4,0;"Eccoti seduto in groppa ad una po 
tente moto, pronto a saltare!" 

2075 PRINT PAPER 6; INK 6;AT 6,0;"Devi soltanto decidere a quale ve 
locita • tentare il salto per evitare gli ostacoli." 

2080 PRINT PAPER 6; INK 6;AT 9,0;"Dovrai quindi inserire un numeroco 
“preso tra 7 e 100 (non sono Km/h, e’ una scala arbitraria) 

2090 PRINT PAPER 6; INK 6;AT 72,0;"Dopo aver scelto la velocita' lam 
oto tenterà• di saltare i vari (e tipici) ostacoli che le si p 
arano davanti. E' necessario atterrare sulla rampa opposta." 

2100 PRINT PAPER 6; INK 6;AT 17,0;"Se la moto urta un ostacolo o m 
anca la rampa d'arrivo, si schianterà' nell'impatto." 

2110 PRINT PAPER 6; INK 6;AT 20,0;"70 punti per un bel salto. 

..-10 punti per ogni CRASH!" 

2120 FOR K=3 TO 20: FOR J=0 TO 30: BEEP .005,10: PRINT PAPER 6; 

INK 7; OVER 1;AT K,J;B$(3);AT K,J+1;B$(4);AT K+l,J;BS(7);AT K+l 

,J+l;BS(2) 

2130 IF J>0 THEN PRINT PAPER 6; INK 2; OVER 1;AT K,J-l;BS(3);AT K,J 
;B$(4);AT K+l,J-l;B$(1);AT K+1,J;B$(2) 

2140 NEXT J: PRINT OVER 1; PAPER 6; INK 1;AT K,30;" *;AT K,31;" " 

2150 PRINT PAPER 6; INK 2; OVER 1 ;AT K,J-1 ;BS(3);AT K,J;B$(4);AT K+1 
,J-l;BS(1);AT K+1,J;BS(2): PAUSE 5 

2160 NEXT K 

2170 PRINT #0;AT 1,3;"PREMI UN TASTO PER INIZIARE": PAUSE 0: CLS : 

RETURN 


Cinque alieni 


I 

I 

16/48K 1B 


Gli extraterrestri stanno tentando 
nuovamente di conquistare la Ter¬ 
ra: provate a respingerli, ma tenete 
conto che è sufficiente che cinque 


loro astronavi atterrino perché il 
nostro amato pianeta diventi una 
colonia al loro servizio! 


1 REM *******»***»•••*.*.»*** 

2 REM *** CINQUE ALIENI 

3 REM *******»***»***»»•+••*• 

5 GO SUB 520 
35 LET ss-0 

40 FOR 0=1 TO 3: READ pS 

50 FOR n=0 TO 7: READ j 

60 POKE USR pS+n,j 

65 NEXT n: NEXT o 

70 LET a=l0: LET s=0: LET q=l 

80 LET z = 37 : LET y=120 

90 PRINT AT 12,0;"Vuoi vedere le istruzioni (S/N)?" 

95 BEEP .1,20: LET aS=INKEY$: IF aS=”s" OR a$="S" THEN GO TO 380 

96 IF a$ = "n" OR aS = ”N" THEN GO TO 1 00 

97 GO TO 95 

100 BORDER 1: PAPER 7: INK 6: CLS 
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110 PRINT AT 1,0; BRIGHT 1; INK 3;" " 

;AT 19,0; INK 6;" 15 

120 PRINT AT 0,2; BRIGHT 1; INK 5;"Punti 0";AT 0,17;"Max ";ss 
150 LET C=INT (RND*30)+1 : LET b=3 

152 IF c<=5 THEN LET w=2000 

153 IF 05 AND c<26 THEN LET w=3000 

154 IF 0 = 26 THEN LET w=1000 

155 LET ch=INT (RND*2)+1 

160 PRINT AT 18,a; INK 6;" A ";AT b-l,c-l; INK 4;" ";AT b,c; INK 4 
;CHR$ (144+ch) 

170 LET x=(a*8)+12 

180 LET a=a+(INKEY$="2" AND a<=28)-(INKEY$="1" AND a>=l) 

190 PLOT x,z: PLOT OVER l;x,z 

200 IF INKEY$="0" THEN DRAW INK 5;0,y: BEEP .025,20: PLOT X,z: 

DRAW OVER 1;0,y: GO TO 260 
205 GO SUB w 

210 LET b=b+l : BEEP .01,19-b: IF b=19 THEN GO TO 230 
212 PRINT AT 18,a; INK 6;" A " 

214 LET a=a+(INKEY$="2" AND a<=28)-(INKEY$="1" AND a>=l) 

220 GO TO 160 
230 BEEP .5,-20 

240 PRINT AT 18,c-1 ;PRINT AT 21,q*2; INK 7;CHR$ (144+ch): 

IF q=5 THEN GO TO 300 
250 LET q=q+l: GO TO 150 
260 IF x=(c*8)+4 THEN GO TO 280 
270 GO TO 205 

280 FOR n=-3 TO -1: PRINT AT b,c; INK 1; INVERSE 1;CHR$ (144+ch): 
BEEP ; 04,5-n: PRINT AT b,c; INK 2;CHR$ (144+ch): BEEP .04,b: 
NEXT n 

290 LET s=s+(b+(ch*2)): PRINT AT 0,8; BRIGHT 1; INK 5;s: PRINT AT b, 
c;" ": GO TO 150 

300 PRINT AT 10,6;"LA PARTITA E' FINITA!": IF s>=ss THEN LET ss=s: 

PRINT AT 0,21; BRIGHT 1; INK 5;ss 
305 GO SUB 600 

310 PRINT AT 12,6; INK 6;"PREMI ”; INVERSE 1;"S"; INVERSE 0;" PER 
GIOCARE" 

315 PRINT AT 14,6; INK 6;"PREMI "; INVERSE 1;"N"; INVERSE 0;!' PER 
FINIRE." 

320 IF INKEY$ = "s", OR INKEY$ = "S" THEN CLS : BEEP .3,30: GO TO 70 


330 IF INKEYS = "n" OR INKEY$ = "N" THEN CLS : STOP 
340 GO TO 320 

350 DATA "a",0,24,24,153,153,255,129,129 
360 DATA "b",60,1 26, 21 9, 126,90,129,66, 36 
370 DATA "c",60,36,60,126,255,36,66,129 
380 BORDER 2: PAPER 2: INK 7: CLS 

400 PRINT AT 2,0;"Gli alieni_ stanno tentando di invadere la Terra! 
!!";AT 5,0;"La tua sola speranza e' quella di riuscire a respin 
gerii prima che essi atterrino e colonizzinoil nostro pianeta... 


410 PRINT AT 10,1; INVERSE 1; INK 7; FLASH 1 ;"ATTENZIONE..." 

420 PRINT AT 12,1;"...se 5 alieni atterrano, la Terra e' finitali 
!" 

430 PRINT AT 21,1;"PREMI UN TASTO PER CONTINUARE" 

440 BEEP .1,16: BEEP .1,21: IF INKEY$="" THEN GO TO 440 
450 CLS 

455 PRINT "CINQUE ALIENI": PRINT AT 0,0; OVER 1;" 

460 PRINT AT 2,0;"Per muovere a destra premi "; INVERSE 1;"2" 

470 PRINT AT 4,0;"Per muovere a sinistra premi "; INVERSE 1;"1" 
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480 PRINT AT 6,0;"Premi "; INVERSE 1;"0"; INVERSE 0;” per far fuoco" 
: PRINT AT 9,0;"Ci sono due tipi di alieni: uno vale piu' punti 
dell’altro." 

485 PRINT AT 12,0;"Gli alieni valgono di piu' quanto piu' sono 

vicini alla Terra. “ 

487 PRINT AT 16,5; INK 5 ; "B... Raider •' ; AT 17,5; INK 4 ; "C.. .Droide" 

490 PRINT AT 21,1;"PREMI UN TASTO PER CONTINUARE" 

500 BEEP .2,5: IF. INKEY$<>"" THEN GO TO 100 
510 GO TO 500 

520 BORDER 2: PAPER 2: INK 7: CLS 
530 PRINT AT 10,9;"CINQUE ALIENI" 

540 FOR n=-10 TO 40 
550 BEEP .1,40-n 

560 NEXT n: PAUSE 2: BEEP .5,20: BEEP 1,15: NEXT n 

610 FOR n-20 TO 0 STEP -2 

620 BEEP .1,n: NEXT n 

630 PAUSE 3: BEEP .25,15: BEEP .25,15 

640 RETURN 

1 000 LET C-C- 1 : RETURN 
2000 LET c=c+1: RETURN 
3000 RETURN 


Per ricevere sii arretrati di àvfià compilare il seguente tagliando: 

K 

. Compilare ed inviare in busta chiusa a: 

J.SOtt viale Restelli, 5 - 20124 Milano - Tei. 02/6888228-683797-6880841-2-3 


Nome. 


Cognome. 
Indirizzo _ 
CAP_ 


Città 


Prov.. 


Desidero ricevere i seguenti numeri arretrati di 


idedicato a_ 


a L 2 000 cad per un totale di L. 


. Anno. 
Anno — 


a mezzo 


□ assegno allegato 

K 


□ contanti allegati 
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Da questo mese 
S. Commodore è in due 



versioni: per C 64 e 
per VIC 20, C16 E Plus/4. 
LA RIVISTA A MISURA DI 
COMPUTER! 


Sono idee 

\ è. soft 



